home *** CD-ROM | disk | FTP | other *** search
/ Aminet 2 / Aminet AMIGA CDROM (1994)(Walnut Creek)[Feb 1994][W.O. 44790-1].iso / Aminet / dev / amos / ldosv25d.lha / ldos_demo / examples / ldos / Lsave.AMOS / Lsave.amosSourceCode
AMOS Source Code  |  1991-12-22  |  298b  |  13 lines
  1. 'Simple save 
  2. Reserve As Work 10,1024 : ST=Start(10)
  3. For I=ST To ST+1023
  4.    Poke I,Asc("N")
  5. Next I
  6. If Exist("ram:feppel") Then Kill "ram:feppel"
  7.  Extension_10_0006 1,"ram:feppel",1
  8. For S=1 To 10
  9.    A= Extension_10_0034(1,ST,1024)
  10.    CNT=CNT+A
  11.    Centre Str$(CNT)+Str$(A)
  12. Next S
  13.  Extension_10_0016 1